#!/bin/bash
filename="letrero.in"
filesize=$(cat $filename | wc -l)
for (( i=1; i<=$(( $filesize )); i+=1 ))
do
	line=$(sed $i'q;d' $filename) # | cut -d' ' -f2-)
	echo Linea $i : $line
   	sline="$(echo $line | wc -w)"
	word=($line)
    declare finalword
    declare cola
    declare primera
	#cantlet=${word[0]}
	echo palabras $sline
	final=$(( $sline-2 ))
	echo final: $final
	for (( j=1; j<$(( $sline ))-1; j+=1 ))
   	do
		sprimera="$(echo ${#word[$j]})"
		ssegunda="$(echo ${#word[$j+1]})"
		if [[ $j == 1 ]]
		then
			primera="${word[$j]}"
		fi
		segunda="${word[$j+1]}"
		echo $primera $sprimera
		echo $segunda $ssegunda
		declare aux
		cola=""
		while [ $ssegunda != 0 ];
		do
			echo j $j cola $cola primera $primera segunda $segunda
			if [[ "" == "$segunda" ]]
			then
				echo Resultado Final: $primera" "$cola
				let ssegunda=0
			else
				if [[ "$primera" == *"$segunda" ]]
				then
					echo true
					#concatenar cola a primera, porque si hacen match segunda ya es parte de cola
					primera=$primera$cola
					let ssegunda=0
					if [[ $j == $final ]]
					then
						echo Resultado: $primera j $j
						echo $primera >> palabras.out
						echo ${#primera} >> cantidad.out
						finalword=$finalword" "$primera
					fi
				else
					if [[ $ssegunda == 1 ]]
					then
						primera=$primera" "$segunda$cola
						let ssegunda=0
						echo no hay match
						echo Resultado: $primera j $j
						echo $primera >> palabras.out
						echo ${#primera} >> cantidad.out
						finalword=$finalword" "$primera
					else
						echo false
						#cortar ultima letra a segunda
						#guardar ultima letra en cola
						echo cola ${segunda:${#segunda}-1:1}
						echo aux1 $cola segunda $segunda
						cola=${segunda:${#segunda}-1:1}$cola
						segunda=${segunda:0:-1}
						let ssegunda="$(echo ${#segunda})"
						echo aux2 $cola segunda $segunda ssegunda $ssegunda
						echo segunda $segunda
					fi
				fi
			fi
		done   
	done    
done
echo $(((${#finalword})-1)) >> mensaje.out
echo $finalword >> mensaje.out
